home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '88 / Proceedings '88 / Feldt Advanced Mac Programming / Serial Port / portinitdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  1.2 KB  |  30 lines  |  [TEXT/KAHL]
  1. PROGRAM PortInitDemo; 
  2.  
  3.  VAR 
  4.     Event : EventRecord;                { event record structure instance    }     whatHappened : EventStuff;        { event detail structure instance    }     appleMenu,fileMenu,editMenu : MenuHandle;  { handles for std menus    }     PortA : SerialPort;                { two serial port data structures    } 
  5.  
  6. BEGIN
  7.      XTCommInit;                    { init Toolbox managers, Extender    } 
  8.     InitSPort(@PortA,'A');
  9.  
  10.     PortA.baud := baud9600;            {9600 baud transmission rate    }
  11.     PortA.parity := evenparity;            {set character parity to even    }
  12.     PortA.stopbits := stop15;            {set to 1.5 stopbits per character    }
  13.     PortA.databits := data7;            {set to 7 databits per character    }
  14.     SetSPort(@PortA);                {set modem port to above values    }
  15.  
  16.     PortA.inbufsize := 1024;            {set input buffer to 1024 bytes (1K)    }
  17.     PortA.in := NewPointer(Ord4(1024));    {set address of input buffer    }
  18.     PortA.outbufsize := 0;                {leave output buffer untouched    }
  19.     SetBufSPort(@PortA);            {set modem port to above values    }
  20.  
  21.     REPEAT
  22.          REPEAT
  23.             SystemTask;            { slice of cpu time for DAs    }        UNTIL GetNextEvent(everyEvent,Event);       { until event occurs     }
  24.  
  25.          HandleEvent(Event,whatHappened);
  26.  
  27.      UNTIL ExitRequest(whatHappened); 
  28.     ResetSPort(@PortA);                { release serial port driver    } 
  29. END. 
  30.